home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
os2
/
pp001.zip
/
FOO.PRG
< prev
next >
Wrap
Text File
|
1991-08-03
|
319b
|
18 lines
Program EX4;
{
Same as EX3, but re-written to use a for loop
}
var
a,b : integer;
begin
for a := 65 to 90 do
begin
b := a / 3;
Write(A,' ',B); { Write the value }
Emit(32,32,32,32,A,13,10); { Write " ", the character, then CR/LF }
end;
emit(13,10);
end.
.